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Preface 

Part 2, The JOVIAL Grammar and Lexicon, is a complete, concise, 
and rigorously formal description of JOVIAL, an SDC-designed, pro- 
cedure-oriented, programming language. It is intended mainly as a 
reference for programmers already familiar with the language. 
The Grammar describes the syntax or appearance of JOVIAL, 
while the Lexicon describes the semantics or meaning of JOVIAL. 
The Lexicon, which is interleaved with the Grammar, attempts to 
ascribe a precise meaning to every 'grammatical' JOVIAL program by 
describing the computing rule denoted by the program. In this it 
is not entirely successful, for the interpretation of some few 
JOVIAL expressions (especially in the input-output area) neces- 
sarily varies from computer to computer so that these expressions 
must remain undefined. Machine independent programming can be 
achieved, however, by avoiding undefined constructions. 

Any grammatical construction not explicitly defined in the 
Lexicon, as well as every ungrammatical construction, is to be 
considered undefined, which merely means that its effect on the 
operation of a program containing it is computer dependent. AU. un- 
grammatical constructions and many undefined constructions are mis- 
taken with regard to the intent of the programmer, and may even be 
illegal — flagged as mistakes by the compiler. 
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Part 2. 
THE JOVIAL GRAMMAR AND LEXICON 

A Complete, Concise, & Formal 
Technical Description 

Languages have three different aspects, representing successive 
levels of abstraction: pragmatics, the language's use— as described 
in a Primer; semantics, the language's meaning— as described in a 
Lexicon; and syntax, the language's appearance— as described in a 
Grammar. Languages must be described in language, and it is con- 
venient to call the language being described the 'object-language', 
and the describing language, the 'metalanguage ' . In the present 
case, the object-language is, of course, JOVIAL. The metalanguage 
of the JOVIAL Primer is English and JOVIAL, the metalanguage of the 
JOVIAL Lexicon is English, and the metalanguage of the JOVIAL Grammar 
is a specially developed syntax metalanguage. 

The Syntax Metalanguage 

A language consists of certain signs, and certain strings of 
these signs. An object-language sign-string may be exhibited, by 
writing its signs in linear order, or it may be denoted, by a meta- 
language sign-string. In describing the syntax metalanguage, both 
exhibited and denoted object-language sign-strings will be called 
symbols and may be distinguished by the fact that the object-language 
signs and the metalanguage signs do not intersect. A symbol, or a 
sequence of symbols delimited by the metalinguistic connectors ":" 
or ";", is a form, and the following grammar is just a set of rules 
for substituting forms for metalanguage symbols. 



Notation 



is the catenation operator, denoting the juxtaposition of 
symbols. Thus, the form "A:B", which may be read "A con- 
catenated with B", denotes "AB". 
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; is the selection operator, denoting a choice of symbols. 
Thus, the form "A;B", which may be read "A or B", denotes 
either "A" or "B". Selection has precedence over catenation, 
so that the form "A:B;C:D", which may be read "A, concatenated 
with B or C, concatenated with D", denotes either "ABD" or 
"ACD". 

fs? is a symbol denoting a single form, 5. The f and ? serve 
only as metalanguage brackets. 

(5) is a symbol denoting a string of forms 5 of arbitrary length 
one or greater, i.e., "?&7;ft6:S?;ffi:fi:fi?;?S:i:B:2?; etc." 
(A superscript number may be used to denote a string of forms 
of specific length, e.g., "^ signifies "5:5:5:5:5:5:5".) 

IS is the null symbol, used mainly to construct optional forms. 
Thus, the form "A:i:B" denotes "AB", and "A:J;B" denotes 
either "A" or "AB". 

( may be read "can be rewritten as". 

To create a semi-pictorial grammar and thus facilitate legibility, 
the following pair of definitions are introduced, augmenting the meta- 
language: 

1. The symbol I will denote a single blank character. 

2. The blank will be used as a special catenator, denoting the 
linkage of a symbol pair by a string of blanks of arbitrary length zero 
or greater, or when used to concatenate a numeral-letter pair, of arbi- 
trary length one or greater. Thus "A B", which may be read "A followed 
by B", denotes "A:JI^:B", and "A 8" denotes "A: ^1^:8", while "A $" denotes 

"A:£;^:$". 

A number subscripting a symbol has no syntactic significance, but 
serves only to distinguish identical symbols with different meanings 
in the semantic description. The remaining notational conventions 
should be self-explanatory. 
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To illustrate the syntax metalanguage, consider the language L, 
which consists of the three signs $, ), and (, and the following 
sign-strings : 



•••($) • • •), 
• • •($$$) • ••)» 



♦' <*>> <(*»• («♦»),■ 

*k (*U, «$$)), ((($))), 
*W» (W), (($$$)), ((($$$))), 
$...$, ($..4), (($...$)), ((($...$))), 

The syntax of L may be completely described by the grammatical rule: 

which may be read "L can be rewritten as nothing, or $-string, or ( 
concatenated with L concatenated with )". 

Note: A language whose syntax can be entirely described with the 
above metalanguage is a 'formal' language; a formal language 
whose syntax can be entirely described when the metalinguistic 
connector denotes only the rewriting of a single metalanguage 
symbol is a phrase- structure • language; a phrase- structttrT 
ai ^f e y h06e syntax can be entirely described in terms of 
exhibited sign-strings is a 'finite state' language. Both 
L and JOVIAL are phrase- structure languages, but not finite 
state languages. 

General 

JOVIAL is an ALOOL-type, procedure-oriented programming language 
designed to permit simple and concise description of certain basic 
information processing operations. These operations are: 

1* Logical decision; 

2. Specification of values for variable items of information; 

3» Calculation necessary for both 1 and 2; 

4. Input and Output of information. 

A JOVIAL program* or procedure is a sequence of statements, which 



♦Terms for jjhich a precise definition will be given later are under- 
lined at their first occurrence. ««*w 
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may be supported by declarations » Each statement describes a rule 
of computation and either explicitly or implicitly specifies a 
successor statement, which is the next statement listed unless 
otherwise stated. The computing rule given by a program is thus 
the sequence of computations described by the statements, taken in 
the order supplied by successor relations. Declarations, which are 
not themselves computing rules, serve to describe the environment 
in which the computing rules are to operate by defining certain 
properties of the identifiers appearing in the statements. 

THE ALPHABET 

Letter . 
Form 001. * A;BjCjD;E;F;G;HjI;J;K;L;M;N;0;P;Q;R;S;TjU;VjW;X;YjZ 

Numeral. 
Form 002. # * 0;1j2;3;4j5;6;7;8j9 

Mark. 
Form 003- & I *',)',{>+}-'>*'>/ 1 .{»;•;-*$ 

Sign. 
Form 004. sign $ @J#;& 

At the most basic level, a JOVIAL program consists of a single, 
linear string of signs — segmented for convenience only into lines 
written on a coding sheet or punched in a card. Signs do not have 
individual meaning, but are used for forming the symbols of JOVIAL, 
that is, delimiters , identifiers, and constants . 



9 June 1961 11 lM-555/002/01 

THE VOCABULARY 

Signs are grouped into symbols, the words of JOVIAL. Symbols 
contain no embedded blanks, since they may be separated from each 
other by an arbitrary number of blanks. However, such separation 
is necessary only when both the adjacent signs being separated are 
numerals or letters. Where necessary, symbols may extend past the 
end of a line. 

DELIMITERS 

Form 005. Arithmetic Operator $ +•-•*./.** 

Form 006. Relational Operator $ EQ;GR;GQ;LQ;LS;NQ 

Form 007. Logical Operator $ AND; OR; NOT 

Form 008. Sequential Operator $ GOTO; IF; IFEITH;ORIF; FOR; TEST; 
CLOSE;RETURN; STOP 

Form 009. File Operator $ INPUT; OUTPUT; OPEN; SHUT 

Form 010. Functional Modifier $ BIT; BYTE; CHAR ;MANT; ODD; 
ALL;POS; ENTRY; NENT; NWDSEN; A 

Form 011. Separator $ .;,;=;==;'; ...;$;ASSIGN 

Form 012. Bracket $ (;);(/;/)($;$); *V '; BEGIN; END; START 
TERM;DIRECT;JOVIAL 

Form 013. Declarator $ MODE; ITEM; TABLE; STRING; ARRAY; FILE; 
SWITCH ; PROC ; DEFINE ; OVERLAY 
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Form 014. Abbreviation k A;B;D;E;F;H;L;M;N;OjP;R;S;T;U;V 

Delimiters have a fixed meaning, -which is usually obvious, 
and is best described in the context of the meaning of their use 
in later forms. 

IDENTIFIERS 

Label. 
Form 015. label $ O:^;':®;^ Except delimiters 

Examples 

AW3W 

U2 

NUMBER * OF ' SIGNIFICANT • CORRELATIONS 

ALPHA 

Item Name. 
Form 016. itemname k fnamejaname;aname;lname;bname;sname 

Floating Item Name. 
Form 017. fname ♦ label 

Fixed (Arithmetic) Item Name. 
Form 018. aname ♦ label 

Dual Item Name. 
Form 019. dname $ label 

Literal Item Name. 
Form 020. lname $ label 



9 June 1961 



13 



5M-555/0O2/O1 



Status Item Name. 
Form 021. sname } label 

Boolean Item Name. 
Form 022. bname $ label 

Table Name. 
Form 023. tablename $ label 

File Name. 
Form 024. filename $ label 

Statement Name. 
Form 025. statementname $ label 

Switch Name. 
Form 026. switchname $ label 

Procedure Name. 
Form 027. procedurename $ label 

Identifiers serve to label the various elements of the program's 
environment and have no inherent meaning, only that supplied them by 
their defining declarations (or statements, in the case of statement 
names . ) All identifiers except statement names must be defined by an 
appropriate declaration, which may be from a compool or list of system 
declarations. Every identifier in a JOVIAL program must be unique 
within its scope , in that no other identifier denoting a different 
element with an overlapping scope may have the same spelling. 
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CONSTANTS 

Constants serve to denote specific values, represented by specific 
machine language symbols. 

Constant. 
Form 028. constant ♦ icon; f con; aeon; ocon;dcon;lcon;bcon 



Form 029. 

Examples 


123^56789 



Number. 

- * W 



Form 030. 

Examples 
27 

-0039 
+331E9 



Integer Constant. 

icon i £;+;-:n:£;?E:n? 



Floating Constant. 
Form 031. fcon * fy;+;-:n: .:£;n?;?£;+;-: .:n?: J;?E:£;+;-:n? 

Examples 
27. 

-0.039 
+3.31E-6 

Fixed (Arithmetic) Constant. 
Form 032. aeon ♦ fcon:A:£;+;-:n 
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Examples 
27 .A0 
- .0039A11 
+3-31E6A-8 

Numbers, and Integer, floating, and fixed constants have a 
conventional, decimal meaning. The number following the abbrevi- 
ation E (for Exponent) in some integer, floating, and fixed con- 
stants is a scale factor, expressed as an integral power of 10 
multiplier. Thus, -3.31E-6 denotes the same floating-point numeric 
value as -.00000331, and 3-31E6 the same as 3310000. The number 
following the abbreviation A in all fixed-point constants indicates 
the precision requirement, the number of fractional bits (bits 
After the binary point) in the machine language representation of 
the fixed-point numeric value. A negative number following the A 
merely indicates that the value (of the least significant bit) is 
precise to the corresponding positive power of two. 

Octal Constant. 

Form 033- ocon $ 0(:^;l;2;3iki3' t 6;7^:) 

Octal constants have the obvious meaning of octal integers. 
Examples 
0(0127) 
0(777305) 

Dual Constant. 

Form 034. dcon * D( :ficon:, : icon? ;f aeon:, : aeon?; f ocon:, :ocon?:) 

Dual constants denote vector or complex quantities, with the 
constants comprising the component pairs having the meanings already 
described. If the component pair of constants are fixed constants, 
their precision requirements (indicated number of fractional bits) 
must be the same. 
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Examples 

D(27,-039) 
D(-1.38^E3A-2,+6.A-2) 

D( 0(0127), 0(77713)) 



Literal Constant. 

Form 035. Icon & n:H;T:( :£sign^ n :) 

Literal constants denote strings of JOVIAL signs— represented 
in machine language by a six bit-per-sign code. The initial number 
indicates the number of signs, written inside the parentheses, to 
be represented. Two coding schemes are used: Hollerith, indicated 
by the abbreviation H; and Transmission code, indicated by the 
abbreviation T. Hollerith code has an undefined numeric represen- 
tation, while Transmission code has the numeric representation given 
in the following chart. 

STANDARD TRANSMISSION CODE 
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Examples 

^H(THIS IS A (+-*/•> = '$) HOLLERITH LITERAL CONSTANT) 

45T(TH1S IS A TRANSMISSION CODE LITERAL CONSTANT.) 

10H( 0123456789) 

IT(() 

Boolean Constant. 
Form 036. bcon $ 0;l 

Boolean constants denote the logical values true and false 
of Boolean algebra. True is denoted by 1 and false is denoted 
by 0. They are distinguished from the integers one and zero by 
context . 

Status . 

Form 037. status $ V(:@;label:) 

A status is, in essence, a mnemonic label denoting one of 
the values of a status item , or one of the states of a file . 
Statuses are useful in those cases where mnemonic labels are more 
intelligible than numeric constants in denoting an item's value. 
The actual, numeric value denoted by a status is implicitly defined 
in the declaration of either the item or the file associated by 
context with the status. A status may not duplicate other statuses 
belonging to the same status item (or file), but may duplicate 
statuses belonging to other status items (or files) since statuses 
are defined only in connection with a specific status item (or file). 

Examples 

V(GOQD) 

V( THIS 1 IS 'A 'STATUS) 

V(X) 
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CLAUSES 

Symbols are grouped into variables and formulas , which are 
expressions , and into phrases . Expressions and phrases are the 
clauses of JOVIAL. 

COMMENT. 
Form 038. jl k ' ' ^sign^: '• Where ^sign^ excludes the 

symbols ' ' and $ 

A comment serves only to allow remarks or clarifying text to 
be included among the symbols of a program and has no operational 
significance or effect on the program. With the sole exception of 
the DEFINE declaration (form llU), a comment may appear wherever an 
arbitrary length string of blanks would be grammatical, that is, 
between symbols. 

Example 

1 'THIS IS A REMARK. * * 

EXPRESSIONS 

Expressions are said to express values (in general, quantities 
denotable by constants) which may vary during the execution of the 
program. 

Variable . 
Form 039. variable $ avar;lvar;svar;bvar;entvar 

A variable designates a single value, which may be used to 
compute other values, and which may be altered by the execution 
of an assignment statement, an exchange statement, a procedure 
statement, or an INPUT statement. 
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Arithmetic Variable. 

An arithmetic variable designates a numerical value, of the 
type denotable by integers, floating constants, fixed constants, 
octal constants, or dual constants; that is, the class of rational 
numbers or rational number pairs. 



Form 040. avar $ fnamejaname;dname (h?($ index 

Floating, fixed, and dual items are arithmetic variables. Dual 
items are similar, fixed-point item pairs. The terms 'floating- 
point* and 'fixed-point' refer to two systems of representing 
rational numbers in machine language. In floating-point, scaling 
information is carried as part of the physical representation of 
the value and is manipulated either by the circuitry of the computer 
or by subroutines. In fixed-point, scaling information must be 
implicit in the instruction logic of the machine-language program. 

Where the item name is subscripted, the index , enclosed in 
the subscription brackets ($ and $), Indicates a single value from 
ihe set of values belonging to a table item, a string item, or an 
array item. 

Examples 

ALPHA 

GROSS'PAY($E$) 

R273($N+2, PRCA($H$)**3$) 

Form 04l. avar & @ 

Subscripts are identified by single letters and are integer 
valued arithmetic variables designating both positive and negative 
integers. Truncation of the fractional portions of any non- integer 
value assigned to a subscript is implied. Subscripts, so-called 
because their most typical use is specifying index values within 
subscriptions, are defined by FOR statements, and their scope of 
definition includes just the next statement listed, and the scope 
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of definition of any subscript defined in that statement. 

Examples 

I 
J 

Form 042. avar k BIT ($ index $) ( itemname £;?($ index $)? ) 

The functional modifier BIT, with its associated subscription, 
operating on any simple or subscripted item is an arithmetic variable 
designating a positive, integral value . The machine language 
representation of the value of any item is a string of bits, indexed 
from left (most significant) to right (least significant). For an 
n-bit item, the index values range from thru n-1. The 1 or 2- 
component index subscripting the BIT modifier indicates a substring 
of the bits representing the value of the item, taken as an unsigned 
integer. The first value of the index indicates the initial bit of 
the substring. For a 2-component index, the second value indicates 
the number of bits in the substring. For a 1-component index, 
where the second value is omitted, the length of the substring is 
Implicitly 1, so that a 1-bit integral value is designated. 

The value of a BIT variable is defined only if the index sub- 
scripting the BIT modifier indicates a substring of bits within the 
bit range of the item. Furthermore, although the value of a bit- 
string of length zero is zero, the value of a bit-string of negative 
length is undefined. Tne value of a BIT variable over a signed 
arithmetic item is also undefined, being computer dependent because 
of the varying schemes for representing negative numbers. 

Examples 

BIT($9$)(ALPHA) 

BIT($ALPHA/2,I*7$)(GAMMA60($BETA($I,K$)+3$)) 

BIT( $BIT( $0$) (DELTA) , N 'DELTA-BIT( $0$) ( DELTA) $) (DELTA) 
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Form 043. avar $ CHAR;MANT ( fname J;f($ index $)? ) 

The machine language representation of the value of a floating- 
point item consists of two essentially fixed-point components: the 
mantissa, a signed fraction; and the characteristic, a signed integer 
scaling factor or power of two multiplier for the mantissa. The 
functional modifier CHAR or MANT, operating on a simple or subscripted 
floating-point item, is an arithmetic variable designating the signed 
integral value of the characteristic in the case of CHAR, or the 
signed fractional value of the mantissa in the case of MANT. 

Examples 
CHAR(ALPHA) 
MANT(R2TM$I,J,K$)) 
CHAR( BETA( $MANT(ALPHA) $) ) 

Form 044. avar $ POS ( filename ) 

A file, consisting of a sequence of records , is a self- indexing 
storage device, in the sense that the record available for transfer 
to or from the file depends on the current position of the file. 
The File Position functional modifier POS, operating on a file name, 
is an arithmetic variable designating a positive, integral value 
which determines or is determined by the current position of the file. 
For a file consisting of k records, this value ranges from thru k, 
corresponding to the k+1 positions of the file. File position is 
defined only for active files . 

Example 

POS( PERSONNEL 1 FILE) 

Form 045. avar $ NENT ( tablename ; itemname ) 

The functional modifier NENT (Number of ENTries), operating on 
a table name or a table item name, is an arithmetic variable desig- 
nating a positive, integral value: the number of entries in the 



9 June 1961 22 1M-555/002/01 

indicated table. Actually, NENT acts as a true variable only if 
the indicated table is a variable length table, or if the indicated 
table item is an item in a variable length table. In all other 
defined cases, NENT must be considered an unsigned integer constant. 

Example 
NENT(DATA8) 

Literal Variable. 

A literal variable designates as its value a string of JOVIAL 
signs. The value of a literal variable is denotable by either a 
literal constant or an octal constant. 

Form 046. lvar k Iname £;?($ index $)? 

Literal items, both simple and subscripted, are literal 
variables designating as values strings of JOVIAL signs. 

Examples 

WORD 

EMPLOYEE ' NAME( $E$) 

A273($N,M$) 

Form 04?. lvar & BYTE ($ index $) ( lname £;?($ index $)? ) 
The functional modifier BYTE, with its associated subscription, 
operating on any simple or subscripted literal item, is a literal 
variable designating a substring of the item modified. The BYTE 
modifier functions in a manner entirely analogous to the operation 
of the BIT modifier. The machine language representation of a 
literal item is a string of bytes — each byte itself a bit-string of 
length 6 representing a single sign. The bytes of an n-byte literal 
item are indexed from left to right from thru n-1. The 1- or 2- 
component index subscripting the BYTE modifier indicates a sub- 
string of the bytes representing the value of the item modified. 
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The first value of the index indicates the initial byte of the 
substring. For a 2-component index, the second value indicates 
the number of bytes in the substring. For a 1-component index, 
where the second value is omitted, the length of the substring is 
implicitly 1, so that a 1-byte literal value is designated. 

The value of a BYTE variable is defined only if the index 
subscripting the BYTE modifier indicates a substring of bytes 
within the byte range of the item. Furthermore, the value of a 
byte-string of length zero is blanks, and the value of a byte- 
string of negative length is undefined. 

Examples 

BYTE($0$)(WORD) 

BYTE( $DELTA+K/2, k$) ( EMPLOYEE ' RAME( $E-1$ ) ) 

BYTE( $N,M$) (A273( $N,M$) ) 

Status Variable. 

A status variable designates a 'symbolic' value, essentially 
a mnemonic label. The value of a status variable is denotable by 
a status. 

Form $kQ. svar $ sname J;f($ index $)? 

Status items, both simple and subscripted, are status variables. 

Examples 
WEATHER 

DEPARTMENT( $E$) 
A275($I+1, J, J-l$) 

Boolean Variable. 

A Boolean variable designates one of the logical values, true 
or false, of Boolean algebra. The value of a Boolean variable can 
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be denoted by a Boolean constant: true by 1; and false by 0. 

Form 01*9. ovar k bname fci?($ i^* $)? 

Boolean items, both simple and subscripted, are Boolean 

variables • 

Example 

BOOL 

EXEMPT($E$) 

Form 050. bvar & ODD ( @;ffname;aname £;?($ index $)?? ) 

The functional modifier ODD, operating on a subscript or a float- 
ing or fixed item, is a Boolean variable. ODD designates the value 
true when the least significant bit of the modified subscript or item 
represents a magnitude of one, and false when it represents a magnitude 
of zero. ODD is true, therefore, when the magnitude of the modified 
value is odd, taken as an integer, and false when that magnitude is 
even. 

Examples 
ODD(K) 

odd(chi($k$)) 



Entry Variable . 
A table is an ordered set of entries (indexed from thru n-1 
for an n-entry table) and an entry is again an ordered set-of 
related items. An entry variable designates as its value a con- 
glomeration of the values comprising an entry in a table. The 
value of an entry variable depends both on the structure of the 
entry and on the values of the constituent items, and is denotable 
by (meaning that all items in the entry have values represented 
by zero) or is not denotable at all in JOVIAL. 
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Form 051. entvar $ ENTRY ( tablename;itemname ($ index $) ) 
The functional modifier ENTRY, operating on a subscripted table 
name or table item name, is an entry variable. The table name or 
table item name serves to indicate the table, while the 1-component 
index of the subscription indicates the particular entry. 
Example 
ENTRY( HETA( $( /DELTA-C**2/ ) $) ) 

Formula. 

Form 052. formula $ aform;lform;sform;bform 

A formula specifies a single value, either by simply designating 
it, or by describing the process of computing it. A formula may 
contain variables, and the value it specifies is, as will be described, 
generally dependent on the values designated by those variables. 

Function. 

Form 053. function $ procedurename ( J;fformula;itemname;tablename; 
statementname £;£ , formula; itemnamejtablenamejstatementname)? ) 

A function specifies the value arising from the application of 
the algorithms defining the procedure to the calling parameters within 
the parentheses — the labels and the values specified by the formulas. 
To be more explicit, a function actually refers to an item, with the 
same name as the procedure itself, declared within the procedure. 
The value specified by the function is thus the value designated by 
this item following the execution of the procedure. The formula type 
in which a function appears must therefore be compatible with its 
synonymous item. 

Examples 

randgmO 
sequel(e) 

PREDICATE(K-BETA($DELTA$)**.5A1, BYTE($L$)(WORD), V(SOON), AA($BAKER$) 
NQ 37.3 OR BOOL, AIRBASE' CENTRAL, SORT) 
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Arithmetic Formula. 

An arithmetic formula specifies a numerical value, of the 
type designated "by arithmetic variables. 

Form 05 1 *. aform $ icon; fcon; aeon; ocon;dcon;avar; function 

When the arithmetic formula consists of just a single operand, 
the value it specifies is obvious: that value denoted by the 
constant, or designated by the variable, or specified by the 
function. 

Examples 

-1.357E4A7 

W 

EMPLOYEE * NUMBER( $E$) 

BIT($0,N , BETA$)(BETA.($1,ALPHA/W,W$)) 

SIN(0MEGA*T**2) 

Form 055. aform $ NWDSEN ( tablename;itemname ) 

The functional modifier NWDSEN (Number of WorDS per ENtry), 
operating on a table name or a table item name, is an arithmetic 
formula specifying a positive, integral value equal to the number 
of storage units, called words or registers, allocated per entry 
of the indicated table. 

Example 

NWDSEN( ABLE ' TABLE) 

Form 056. aform $ ?+;- aform?; ?( aform )?;?(/ aform /)?; 

f aform +;-;*;/;** aform? 

An arithmetic formula containing one or more arithmetic 
operators specifies the value arising from the computation(s) 
described by the formula, in the familiar sense as defined by 
the notation of ordinary algebra. The binary arithmetic operators 
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+ > m t *> It and ** have the conventional meanings addition, Bub- 
traction, multiplication, division, and exponentiation. (Because 
of the limited range of the JOVIAL sign set, the symbols * for 
multiplication— which for syntactic reasons must always be ex- 
plicitly denoted—and ** for exponentiation necessarily differ 
from conventional notation.) The unary arithmetic operator - 
denotes the operation of negation, and the unary operator +, 
though redundant, is allowed. The parentheses perform their 
usual grouping function, and the bracket pair (/ and /) denote 
the absolute magnitude of the value specified by the arithmetic 
formula they enclose. Division by zero is undefined, as is an 
exponentiation such as (-2)**. 5 which would result in a complex 
root being taken. 

Scope. The scope of any operation in an arithmetic formula 
may be indicated by the use of parentheses (or absolute magnitude 
brackets.) In the absence of bracketing, negations are performed 
first, then exponentiations, then multiplications and divisions, 
and finally, additions and subtractions. Within these categories, 
the sequence of operations is from left to right. These rules of 
precedence allow any desired sequence of operations, provide an 
unambiguous indication of the scope of each operation, and conform 
to customary usage. 

Mode. Arithmetic computations are performed in one of three 
modes of arithmetic: floating-point; fixed-point; or dual fixed- 
point. (Dual mode arithmetic is performed on dual, fixed-point 
operands, the indicated operation being performed individually 
on both the left and right components of the operands involved.) 
Mode selection for a particular operation is based on the operands 
involved and on the intended use of the result. In general: 
operations involving only floating operands will be performed in 
the floating-point mode; operations involving only fixed operands 
will be performed in the fixed-point mode; and operations involving 
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dual operands will be performed in the dual mode. Operations 
involving both floating and fixed operands will be performed in 
a mode compatible with the intended use of the result, with an 
automatic conversion between floating and fixed representation 
implied. Operations involving a dual operand will be performed 
in the dual mode and will yield a dual result, with any mono- 
valued operands involved being 'twinned' in the process to yield 

a dual value . 

Precision. Floating-point computations are carried out with 
numbers of fixed though undefined significance, and varying pre- 
cision. Fixed-point computations, on the other hand, involve 
numbers of fixed precision, and varying significance. Since the 
size of the result of a fixed-point arithmetic operation may not 
exceed the least multiple of the computer's word size that can 
contain the most significant operand, results with greater possible 
significance must be truncated to this limit. This truncation is 
performed first on the least significant fraction bits and then, 
if necessary, on the most significant integer bits. In determining 
the maximum possible significance of a fixed-point result, integers 
are regarded as arbitrarily precise. 

Examples 

ALPHA - SIN( OMEGA * T ** 3) ** 2 

W ** (SIN(ZYME5($A$)) + 2.93) 

(-ALPHA * 9 + (/CHl($P+6$)/) ** BIT($0,K$)(RB276($I,J-l,K$)))/2 

Index . 
Form 057- index k aform £;£ , aforn^ 

An index, composed of an ordered list of arithmetic formulas 
separated by commas, is a vector whose components are positive (non- 
negative) integral values. (Consequently, any fractional part of 
the value specified by an arithmetic formula in an index list is 
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truncated.) An index serves to indicate a particular value in 
the designation of values which are elements of tables, of strings 
or of multi-dimensional arrays. Such a value is designated by an 
index subscripting an item name. Thus, a simple item is unsub- 
scripted; a table item is subscripted by a 1-component index 
indicating the table entry in which the value occurs; a string 
item is subscripted by a 2-component index, the first value 
indicating the •bead 1 or element within the string and the second 
value indicating the table entry in which the value occurs; and 
a multi-dimensional array item is subscripted by a correspondingly 
multi-component index, the first value indicating the row, the 
second value indicating the column, the third value indicating 
the plane, and so on. 

An index, when subscripting a BIT or BYTE functional modifier, 
also serves to indicate a substring of the bits or bytes represent- 
ing the value of the item being modified, the first value indicating 
the initial bit or byte, and the second value indicating the number 
of bits or bytes — with an omitted second value implying a sub- 
string or length 1. 

An index is undefined if the number of components does not 
correspond to the dimensionality of the item (or functional modifier) 
it subscripts, or if any of its component values fall outside the 
range bounded by the index limits (0 and n-1 for an n-element set) 
of the corresponding dimension of the item (or functional modifier) 
being subscripted. 

Examples 

0> 1, 2 

BETA($J$) 

K,J,I-3*DELTA,(/R273($I,2*J,K/2$)/),0 

Literal Formula. 
Form 058. lform $ Icon; ocon;lvar; function 
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The value specified by a literal formula is that value denoted 
by the literal or octal constant, or designated by the literal 
variable, or specified by the literal function. 

Examples 

17H(THIS IS AN LPORM.) 

11T(S0 IS THIS.) 

0(77) 

word($alpha$) 

byte( $k** . 5a1$) ( beta( $a, a-l/2+delta$) ) 

tail(byte($a,b$)( symbol), 0(171+), 18) 

Status Formula. 

Form 059. sform $ status jsvar; function 

The value specified by a status formula is that value denoted 
by the status, or designated by the status variable, or specified 
by the status function. 

Examples 

v(amazing) 
weather($k$) 
type( word( $count$) ) 

Boolean Formula. 

The value specified by a Boolean formula is one of the values 
true (l) or false (0) of Boolean algebra. 

Form 060. bform k bcon;bvar; function 

When the Boolean formula consists of Just a single Boolean 
operand, the value it specifies is that value, true or false, 
denoted by the Boolean constant, or designated by the Boolean 
variable, or specified by the Boolean function. 
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Examples 

1 

BOOL 

INDICATOR($I,J,K**3$) 

SIGN( ALPHA) 

AT0M(CDR(F0RM($K$))) 

EQUAL(BYTE( $1+1$) (ALPHA), BYTE ($GAMMA$)( ALPHA)) 

Form 061. bform $ aform ( EQ;GR;GQ;LQ;LSjNQ aform) 

A relational operator denotes a relation between the values 
specified by the pair of formulas immediately bracketing it. A 
simple Boolean formula (i.e., with no logical operators) con- 
taining relational operators specifies the value true whenever 
all the corresponding relations are satisfied for the formulas 
involved, otherwise, the value specified is false. 

The relational operators denote primarily numeric relations: 

EQ is EQual to 

GR is GReater than 

GQ is Greater than or eQual to 

LQ is Less than or eQual to 

LS is LesS than 

NQ is Not eQual to 

Between arithmetic values, the meaning of these relations is 
fairly obvious: the test of a relation being implemented by an 
arithmetic comparison. Between dual- valued arithmetic formulas, 
the relation, to specify the value true, must hold for both com- 
ponent pairs, and between a single -valued and a dual- valued formula, 
it must hold between the single value and both halves of the dual 
value. The precision of an arithmetic comparison, though undefined, 
is at least as precise as the least precise of the two values in- 
volved . 
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Examples 

X EQ -2 

(/BETA($I$) - BETA($J$)/) LQ I + J 

ALPHA GR NENT(BETA) LQ R273($I,I$) +1 *9 LS 

Form 062. bform $ lform £ EQ;GR;GQ;LQ:LS:NQ lform) 

Examples 

ALPHA EQ BETA($H$) 

ALPHA GR 5T( GREEN) 

BYTE($QRM$K$)$) (ALPHA) NQ 0(77) 

BYTE( $0,3$) (ALPHA) NQ BYTE($J,3$)(BETA($H$)) NQ 3H(...) 

Form 063. bform $ svar; filename EQ;GR;GQ;LQ;LS;NQ sform 

Examples 

WEATHER EQ V( FAIR 'AND' WARMER) 
BETA($2*DELTA,0$) GR V(A3^) 
PERSONNEL' FILE NQ V( ACTIVE) 

Form 064. bform $ entvar EQ;NQ entform 

Examples 

ENTRY(BETA($K$)) EQ 
ENTRY(DELTA($I$)) NQ ENTRY(DELTA($0$)) 

Between non-arithmetic values of the literal, status, or entry- 
type, the meaning of the relations denoted by the relational oper- 
ators is based on the machine language representation of the values 
involved. For purposes of comparison, the machine language symbols 
representing such values are treated as unsigned integers. 

Literal values are thus right justified during comparison, 
though if they are of different length, the shorter literal value 
is prefixed by blanks. Although the relation between two literal 
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values depends on their numeric encoding, it can usually be inter- 
preted in an alphabetic sense. 

Status values are similarly compared on the basis of their 
numeric encoding. (The status value specified by a file name is 
one of the set of statuses associated, by the file declaration, 
with the states of the file. In this context, a file name specifies 
the current state of the file and may be thought of as a status 
pseudo- variable, automatically updated prior to the comparison.) 

Entry values, finally, are represented by single, composite 
symbols which are likewise compared as unsigned integers. 

Form 065. bform $ ?NOT bform?; f( bform )?;fbform ANDjOR bform? 

The logical operators AND, OR, and NOT allow simple Boolean 
formulas to be combined into more complex Boolean formulas. Their 
meaning is given in the following table: 

p q NOT q p AND q p OR q 
1 

10 1 

10 1 

11 11 

The scope of a logical operation in a Boolean formula may be 
indicated by the use of parentheses. In the absence of parentheses, 
NOT's are performed first, then AND's and finally OR's. Within 
these categories, the sequence of operations is from left to right. 

Examples 

NOT ALPHA+BETA($91$) LS 

BOOL AND NOT (ALPHA GR BETA($C**2$) OR AT0M(F0RM($C$))) 

Entry Formula. 
Form 066. entform $ 0;entvar 
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The value specified by an entry formula is an entry value 
denoted by zero or designated by an entry variable. 

Examples 


entry( data8( $gamma$ ) ) 

Sequential Formula. 

Form 067. seqform $ statementname;tswitchname Jhf($ index $);/ 

A sequential formula specifies a sequel in the sequence of 
statement executions. The value specified by a sequential formula 
is thus a statement name. This value may be directly denoted, or 
it may be the value designated by a simple or subscripted switch 
name. A switch name refers to the defining switch declaration which 
lists the set of statement names that the switch may designate as 
values. Since these statement names are themselves specified by 
sequential formulas, the determination of a switch's value is 
obviously a recursive process. 

Two kinds of switches may be declared: index switches; and item 
switches. The value of the 1-component index subscripting an index 
switch serves to indicate directly a switch value from the list in 
the switch declaration. The index (if any) subscripting an item 
switch serves to index the item whose name is part of the switch 
declaration. The value so designated is used (in a manner described 
in the switch declaration) to determine the value of the switch. 
In seme cases, a switch may have no value, since sequential 
formulas need not be specified for all possible values of the index 
or the item. A sequential formula with no value has no effect on 
the statement execution sequence. 
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Examples 

601 

MATRIX 'MULTIPLICATION 

SWIMAGE($B$) 

which( $delta+i/delta+j, DELTA+K$) 

SENTENCES 

With certain delimiters, expressions form statements and 
phrases form declarations. These are the sentences of JOVIAL. 

STATEMENTS 

Statements are the operational units of JOVIAL, and describe 
closed and self-contained rules of computation. The statements of 
a program or procedure are normally executed in the sequence listed. 
However, this sequence of operations may be broken by GOTO statements, 
which define their successor explicitly; shortened by IF statements, 
which may cause certain statements to be iterated; and otherwise 
altered by CLOSE statements, which close or remove certain statements 
from the normal sequence of statement executions. Statements may 
be named, and sequences of statements may be grouped into compound 
statements. Simple (non- compound) statements are invariably termi- 
nated by the termination separator $. 

Named Statement. 

Form 068. statement $ statementname * statement 

A statement may be identified by attaching a name to it. The 
name precedes the statement it identifies, which may be simple or 
compound, or already named, and is separated from it by the statement 
name separator . which is distinguished from the decimal point by 
context . 



9 June 1961 36 m- 5 5 5/002/01 



Examples 

RESET' CELL' COUNT. CELL' COUNTER = $ 

HALT. QUIT. CEASE. DESIST. WHOA. STOP $ 

CLEAR. BEGIN FOR R = ALL(BETA) $ BETA($R$) = $ END 

Compound Statement. 

Form $69. statement $ BEGIN ( declaration ; statement ) END 

A string of statements, which may be interspersed with decla- 
rations, are combined into a single, compound statement by enclosing 
them in the statement brackets BEGIN and END. The statements com- 
prising a compound statement may themselves be compound. 

Examples 

BEGIN IF CTR GR $ BEGIN CTR = CTR-1 $ RETURN $ END END 

BEGIN MP = (MN+MM($K$))/2 $ MM($K$) = MN $ MN = MP $ END 

Assignment Statement. 

An assignment statement assigns the value specified by a 
formula to be the value thereafter designated by a variable. The 
symbol = separating the left-hand variable from the right-hand 
formula is the assignment separator and, denoting assignment, has 
an imperative meaning not to be confused with that of the equals 
sign of ordinary mathematics, which merely states a passive con- 
dition of equality 

Form 070. statement k ovar = aform $ 

An arithmetic assignment statement assigns an arithmetic 
variable the value specified by an arithmetic formula. If the 
value is specified to greater precision than required by the 
variable, the excess precision is truncated unless, in the case 
of an item, rounding (to the closest value with the required 
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precision) is specifically indicated in the item description. If 
the value is specified to less precision than required by the 
variable, the remaining bit positions will be filled in with bits 
of zero magnitude. If the value specified has greater significance 
than accepted by the variable, the value's most significant bits 
may be lost during assignment — a condition known as •overflow 1 . 

The value specified by a mono- valued formula will be 'twinned' 
when assigned to a dual item and, where necessary, an automatic 
conversion between floating-point and fixed-point representation 
is implied. 

The results of assigning a negative value to an unsigned 
variable, and a dual value to a mono- valued variable, are undefined. 

Examples 

DELTA = -(HETA($X-l$)+1.65El«A-3) ** -5 $ 

BBTA($D$) = BETA($D$)+1 $ 

BIT($I,K+2$) (DELTA) = (/MAXIMUM( OMEGA, 20.) * GAMMA/) $ 

Form 071. statement $ lvar = lform $ 

Examples 

TAG = 6H( ) $ 

ALPHA($D$) = ALPHA($D+1$) $ 

BYTE($K/2,8$)(LINE'IMAGE($I,DELTA-J$)) = 0(7777777777777777) $ 

Form 072. statement $ svar = aform $ 

Examples 

WEATHER($K$) = v(glim) $ 

ARGUS($BETA($D$)$) = MODUS $ 

Form 073« statement $ bvar =• bform $ 

Examples 

BOOL - NOT (DELTA+7.4 EQ (/BETA($K$)*3./) OR BOOL) AND SIGN( GAMMA) $ 

INDIC($DELTA**2$) - 1 $ 
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Form 074. statement $ entvar = entform $ 

Examples 

ENTRY(BETA($K$)) » $ 
ENTRY(HETA($K$)) = ENTRY(BETA($J$)) $ 

Non-arithmetic assignment statements operate as if on unsigned 
integers. This has the effect of right justification on literal 
values. A literal value assigned to a shorter variable may thus 
lose its leading signs. A literal value assigned to a longer 
variable, however, is prefixed by blanks. 

Exchange Statement. 
Form 075. statement k avar == avar $ 

Examples 

ALPHA == B $ 

DELTA($I$) == DELTA($I+1$) $ 

CHAR(GAMMA) == BIT($0,CHAR'SIZE$)(R273($A,B,C,D$)) $ 

Form 076. statement $ Ivar == lvar $ 

Examples 

WORD($Y$) == WORD($0$) $ 

BYTE($U$)(FEW($V$)) == BYTE($W$)(GAM4A) $ 

Form 077. statement k svar == svar $ 

Examples 

ARGUS($QAMMA$) — ARGUS($GAMMA-1$) $ 

MODE 'A == MODE'B $ 

Form 078. statement $ bvar == bvar $ 
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Examples 

BOOL == MODUS($I$) $ 

SIGN(DELTA) ■- INDICATOR($I,J,K$) $ 

Form 079 • statement $ entvar « entvar $ 

Examples 

ENTRY(DART2($0$)) « ENTRY(DART2($S$)) $ 

ENTRY(BETA($K$)) == ENTRY(DELTA($K$)) $ 

An exchange statement exchanges the values designated by a 
pair of compatible variables. An exchange operates as if the value 
designated by each variable were assigned, concurrently, to the 
other. The protocols of the assignment statement are thus doubly 
applicable. The symbol == separating the pair of variables is 
the exchange separator. 

GOTO Statement. 

Form 080. statement k GOTO seqform $ 

A GOTO statement may interrupt the ordinary, listed sequence 
of statement executions, defining its successor explicitly by the 
value specified by a sequential formula. This interruption will 
not occur if the sequential formula has no value, as may be the 
case with a switch, and the next statement executed will there- 
fore be the next listed. If the value of the sequential formula 
is the name of a closed statement, the interruption may only be 
temporary, since a closed statement, upon execution, will normally 
return control to the next statement listed after the GOTO 
statement that activated it. And finally, if the value of the se- 
quential formula is an ordinary statement name, the interruption 
of the statement execution sequence will be permanent, with the 
next statement executed being the one bearing the specified 
statement name. 
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Example s 

GOTO S01 $ 

GOTO SLEEP $ 

GOTO SWIMAGE($A-3+DELTA$) $ 

IF Statement. 

Form 081. statement $ IF bform $ 

An IF statement causes the evaluation of a Boolean formula. 
If false, the execution of the next statement listed will be omitted. 
Thus, the execution of any statement can be made to depend on the 
truth of a Boolean formula by preceding the statement with an IF 
statement. Put another way: an IF statement may be said to combine 
with the next statement listed to form a statement pair with the 
same operational effect as its latter part if the Boolean formula 
specifies the value true, but with the effect of 'no operation' 
otherwise . 

Examples 

IF BOOL $ 

IF EQUAL(BYTE($U,12$)(W0RD), 12H(ES0TRO0ROISM)) AND SIGN(DELTA) $ 

IF TEMPERATURE EQ VCHIGH^'S) $ 

IF DELTA**2/BETA($C-3$) LQ (/GAMMA/) OR BETA($C$) NQ l8.i| $ 

FOR Statement 

The execution of a FOR statement defines a subscript (integer 
valued variable identified by a single letter) whose scope of 
definition includes just the FOR- statement string defining it, and 
the simple or compound statement immediately following. A FOR- 
statement string, which is a FOR statement and any FOR- statement 
string immediately following it, causes the statement which it 
precedes to be repeatedly executed, one or more times. Prior to 
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each such execution, values are assigned to some or all of the 
subscripts defined by the FOR- statement string. In general, the 
process consists of the five following steps: 

A. Initialize: Assign initial value(s) to the subscript(s). 

B. Execute: Execute the statement following. 

C. Modify: Assign modified value(s) to the subscript(s) . 

D. Test: Test the value of the controlling subscript to 
determine whether or not to omit the next step. 

E. Iterate: Return to step B. 

The list of arithmetic formulas following the assignment separator 
in a FOR statement gives a rule for obtaining the sequence of 
values which are to be assigned to the subscript. The first 
arithmetic formula specifies the subscript's initial value (step A). 
The second specifies the increment used to modify the subscript's 
value (step C), and implies iteration (step E) . The third arithme- 
tic formula specifies a final, boundary value used to test the 
subscript's value (step D) . The last one or two arithmetic formulas, 
and the steps corresponding, may be omitted. 

It should be clear that the modify, test, and iterate steps 
(C, D, and E) are all expressible in terms of more elementary 
statement forms. In fact, a FOR- statement string functions merely 
as an abbreviation for these statements. It is therefore important 
to note that these steps imply a compound statement for their reali- 
zation. This implied statement, automatically inserted, has all the 
properties of an equivalent, explicit statement. 

Two points concerning the scope of definition of a subscript 
must be emphasized: 

1. A FOR statement may not re-define a subscript already 
defined. 

2. A subscript is defined over a simple or compound statement 
only if the statement previously executed was the FOR- 
statement string defining the subscript. This obviously 
excludes a GOTO statement entering a loop from outside 
the loop. 



9 June 1961 h2 TM-555/002/01 

Form 082. statement ft FOR @ = aform $ 

A 1-factor, incomplete FOR statement, containing a single 
arithmetic formula, serves only to define a subscript and assign 
it a value. A FOR-statement string consisting of one or more 
FOR statements of this type results in a one-pass loop; that is, 
since no modification, test, or iteration is generated, the 
statement following is executed only once. 

Examples 

FOR N = -27 $ 

FOR Z = BETA($N**2-1$)*5 $ 

Form 083. statement ft FOR @ = aform , aform $ 

The pair of arithmetic formulas in a 2-factor, incomplete 
FOR statement specify a theoretically infinite sequence of values 
for assignment to the defined subscript. Each new value is 
obtained by adding the value of the second arithmetic formula to 
the current value of the subscript. A FOR-statement string con- 
taining one or more 2-factor FOR statements (and no 3- factor FOR 
statement) results in a loop with potentially an infinite number 
of iterations. Since this is clearly intolerable in a correctly 
functioning program, it is the programmer's responsibility to 
provide for the ultimate termination of the loop by transferring 
the execution sequence to a statement outside the loop after a 
finite number of iterations. 

Examples 

FOR Y = 0, 2 $ 

FOR H = ALPHA, -6*HEIA($Y$) $ 

Form 084. statement ft FOR ® - aform , aform , aform $ 

A 3-factor, complete FOR statement specifies a finite sequence 
of values for assignment to the defined subscript, each subsequent 
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value being obtained by adding the value specified by the middle 
arithmetic formula to the current value of the subscript. The 
subscript's freshly modified value is then tested to determine 
■whether to include it in the sequence of subscript values, or to 
terminate the loop. The test compares the subscript's modified 
value with a final, boundary value — the value specified by the 
third arithmetic formula of the list. The nature of this com- 
parison depends on the sign of the increment value specified by 
■the middle arithmetic formula. If the current value of this incre- 
ment is negative (less than zero), then the loop is terminated 
when the subscript's modified value is less than the boundary 
value. If the current value of the increment is positive, then 
the loop is terminated when the subscript's modified value is 
greater than the boundary value. 

A FOR-statement string containing a complete FOR statement 
produces a loop with a finite number of iterations, equal to the 
number of values assigned to the completely defined, controlling 
subscript -- excluding, of course, the value which terminates the 
loop. A FOR-statement string may contain only one complete FOR 
statement, which must precede any 2- factor FOR statements in the 
string. The third arithmetic formula in any complete, 3-£ actor 
FOR statement which follows any 2 or 3-factor FOR statements will 
be ignored, thus converting it into a 2-factor FOR statement for 
all practical purposes. This means that a FOR-statement string 
can produce just a single loop. Loops within loops must be con- 
structed by embedding the inner loop in the compound statement 
being iterated by the outer loop. 

Examples 

FOR M = FIRST, NEXT($M$), $ 
FOR K = 0, 1, NENT(BETA)-1 $ 
FOR R = 99, -1, $ 
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Form 085. statement $ FOR @ = ALL ( tablename;itemname ) $ 

In the utilization of complete FOR statements, by far the 
most common type of loop processes an entire table, with the 
number of iterations of the loop equal to the number of entries 
in the table. Where the order of processing is unimportant, such 
a loop may be elicited by a FOR-ALL statement which, in effect, is 
an abbreviation of either: 

FOR @ = 0,l,NENT(tablename;itemname)-l $ or 
FOR @ = MENT(tablename;itemname) -1,-1,0 $. 

Examples 

FOR S = ALL (BETA) 

FOR E = ALL ( EMPLOYEE' NUMBER) $ 

TEST Statement. 

Form 086. statement $ TEST fy® $ 

A TEST statement serves to terminate the current iteration 
of a FOR statement loop by transferring the statement execution 
sequence to one of the implicit subscript modifications at the 
loop's end. It therefore is defined only when it occurs within 
a compound statement being iterated by the effect of a FOR- 
statement string. A TEST statement causes an interruption in the 
execution sequence similar to that caused by a GOTO statement, 
but a subscript modification, being only implied, can have no 
statement name, and thus a GOTO is inapplicable. If a subscript 
appears in the TEST statement, sequence control is transferred 
to the modification of that subscript, or if no subscript appears, 
sequence control is transferred to the first subscript modification 
of the set. 

Subscript modifications are supplied and therefore executed 
in reverse of the order in which the subscripts were defined in 
the FOR-statement string, so that, for example, a TEST statement 
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containing the last subscript defined in a FOR- statement string 
would have the same effect of modifying all the subscripts as 
would a subscript-less TEST statement. For subscript-controlled 
FQR-statement loops, the subscript test always follows the sub- 
script modification(s). Since not all loops are subscript-con- 
trolled (e.g., 2-f actor FOR statement loops), a subscript test 
is not always performed, so the word TEST is thus a slight mis- 
nomer. 

Examples 
TEST $ 
TEST D $ 

CLOSE Statement. 

Form 087. statement $ CLOSE statementname $ statement 
A CLOSE statement allows the simple or compound statement 
forming its latter part to be removed from the normal, listed 
sequence of statement executions. The execution of this 'closed* 
statement may thus only be definitively invoked by a GOTO statement 
whose sequential formula has as its value the statement name follow- 
ing the CLOSE sequential operator. The normal successor to a 
closed statement is that statement listed immediately following 
the invoking GOTO statement. 
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Example 

CLOSE PCR'SORT $ "CLOSED STATEMENT WHICH SORTS THE PCR TABLE 
BY KEY ITEM, USING THE SHUTTLE EXCHANGE METHOD. » ' 
BEGIN 

FOR I = 0,l,NENT(PCR)-2 $ 
BEGIN 

IF PCR'KEY($I+1$) LS PCR'KEYUl^) $ 
BEGIN 

ENTRY(PCR($I$)) == ENTRY(PCR($I+1$)) $ 
FOR J = 1,-1 $ 
BEGIN 
IF J EQ OR PCR'KEY($J$) GQ PCR f KEY($J-l$) $ 

TEST I $ 
ENTRY(PCR($J$)) == ENTRY(PCR($J-1$)) $ 
END 
END 
END 
END 



RETURN Statement. 

Form 088. statement $ RETURN $ 

A RETURN statement indicates an operational end to a pro- 
cedure or a closed statement, and may thus appear only within a 
procedure or a closed statement. It serves to terminate the 
execution of a procedure or a closed statement by transferring 
the statement execution sequence to the exit routine which auto- 
matically follows the last listed statement of the procedure or 
closed statement. An exit routine, being an implied function, 
can have no statement name, and the RETURN statement performs for 
procedures and closed statements much the same service that TEST 
does for loops. 

STOP Statement. 

Form 089. statement $ STOP jj^statementname $ 

A STOP statement serves to halt, or at least delay for an 
indefinite time, the sequence of statement executions. It usually 
indicates an operational end to the program in which it appears. 
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If a 're-start' of the program is performed by some exterior 
agency, the execution sequence will resume with the next statement 
listed, or with the statement bearing the specified statement name 
if one is given in the STOP statement. 

Examples 

STOP $ 

STOP TASK'U $ 

Alternative Statement. 

Form 090. statement $ IFEITH bform $ statement ( ORIF 
bform $ statement) END 

An alternative statement has the effect of selecting for 
execution from a set of statements that statement associated with 
the first true Boolean formula in a corresponding set of Boolean 
formulas. Each of the Boolean formulas, embedded in an IF-like 
sub- statement between a sequential operator IFEITH or ORIF and a 
termination separator, is followed by its associated statement. 
The Boolean formulas are evaluated in turn until one with the value 
true is encountered, whereupon the statement associated with that 
formula is executed. Following this, the sequence of statement 
executions would normally continue with the next statement listed 
after the alternative statement. The effect of an alternative 
statement is therefore equivalent to that of the selected statement 
by itself. Note, however, that an ORIF sub-statement is not a 
complete statement, grammatically speaking, and consequently cannot 
be meaningfully combined with a preceding IF or FOR statement. 

Examples 

IFEITH I EQ J $ DIAG = 1 $ ORIF 1 $ DIAG = $ END 

IFEITH ALPHA GR $ A = ALPHA*2 $ ORIF ALPHA LS $ A = ALPHA/2 $ 
ORIF ALPHA EQ $ A = A+l $ END 
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Procedure Statement. 

Form 091. statement $ procedurename 6;f( (hf formula; itemname; 
tablename;statementname 0;( , formula; itemname;tablename;statementname)j 
ji;f= variable ;itemname;tablename;(statementname .; 0;( , variable; 
itemname; table name ; (statementname .))) )] $ 

A procedure statement serves to call for the execution of a 
procedure which is a closed and self-contained process with a fixed 
and ordered set of formal parameters, permanently defined by a pro- 
cedure declaration. In general, a procedure statement consists of 
a procedure name, a set (possibly empty) of calling parameters, and 
necessary delimiters. The assignment separator, where it appears, 
separates the input calling parameters on the left from the output 
calling parameters on the right. Calling parameters are either 
values (as specified by input formulas or designated by output 
variables) or labels (as directly denoted). A procedure statement, 
by invoking the procedure, may be said to specify a set of values 
for the calling parameter output variables that depend on the values 
of the calling parameter input formulas and that involve the calling 
parameter labels. The execution of the procedure is effected as 
though all formal parameters listed in the procedure declaration 
either designated calling parameter values, or were replaced with 
calling parameter labels. The calling parameters of a procedure 
statement are placed in one-to-one correspondence with the formal 
parameters of the procedure declaration, and must agree with them 
in number. A calling parameter value must further agree in type 
(in the sense of assignment) with its corresponding formal parameter, 
and a calling parameter label must agree in usage. 

Examples 
INITIALIZE $ 
COMPUTE'TAX $ 
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A19(8T(34Q'7$AR)) $ 

TRY(BETA($A$)+1, 2.83E-7, MAXIMUM(0,ALPHA)**R) $ 

SUM(^A) $ 

SIGMA7(= BETA($A-1$), BIT($0,CHl($A-l,7$)$)(ALPHA), GAMMA) $ 

LINK( ALPHA = BETA($XYZ$)) $ 

, C'D(BETA($A$)/3, ( /DELTA/ )** . 5 = Y, ARG'ERROR) $ 

DIRECT Statement. 

Form 092. statement $ DIRECT £sign: J; f ASSIGN fA(: J; icon:) 
= itemname 0;f($ index $)^;fitemname ftjf($ index $)? 
= A(:£;lcon:)? $ 5^ JOVIAL 

A DIRECT statement allows a routine coded in a more direct 
(i.e., machine-oriented) programming language to be included for 
execution among the statements of a JOVIAL program. A DIRECT 
statement consists of the sign-string comprising the direct 
language routine, enclosed in the brackets DIRECT and JOVIAL. 
So that such a routine may manipulate item values, it may include 
a JOVIAL-like ASSIGN statement which assigns the value designated 
by an item to be the value contained in the accumulator, an un- 
defined machine register — or vice versa. The accumulator is. y 
denoted by the functional modifier A suffixed with a parenthesized 
integer constant indicating the number of fractional bit positions 
within the register, usually zero for all but fixed-point arithmetic 
variables. If the integer is omitted, the register contains a 
floating-point arithmetic value. The effect of a DIRECT statement, 
being machine dependent, is undefined. 

Example 

DIRECT 

ASSIGN A(0) = FIVE' DECIMAL' DIGIT' LITERAL $ 

XCA 

FXD 

CAQ DECBIN, , 5 
ASSIGN BINARY' INTEGERS $X$) = A(l8) $ 
JOVIAL 
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Input-Output and Files 

Many data storage devices impose certain accessing re- 
strictions in that the insertion or withdrawal of the value of 
an arbitrary item of information may be a relatively complex 
operation, requiring the transfer of an entire block or record 
of data. Such devices are termed 'external 1 storage devices, as 
contrasted with the 'internal' memory of the computer. To allow 
a reasonably efficient description of algorithms involving the 
data stored in an external storage device, the file concept is 
introduced, so that all data which enters or leaves the internal 
memory of the computer is organized into files. 

A file is a collection of records each of which is again a 
collection— of bits or bytes depending on the file type: binary 
or Hollerith. A file of length k may be considered a k-dimensional 
vector, arranged as follows: 

p(0), iy p(l), R^ ... , p(k-l), R k _ 1 , p(k) 

where the R's are records, the components of the vector, and the 
p's are partition symbols, with an undefined physical representation, 
which may be interpreted as: 

p(k) = end-of-file; p(n < k) = end-of -record. 

If the record currently available for transfer to or from the 

file is R , the file is positioned at partition symbol p(n), and the 

n 
value designated by "POS( FILE 'NAME)" is n. An assignment statement 

"POS( FILE 'NAME) = N $" positions the file to the value specified 

by N, where < N < k. In particular, "POS( FILE 'NAME) = $" 

'rewinds' the file. Any file for which the general positioning 

operation is to be avoided as inefficient (e.g., tape) or impossible 

(e.g., cards, printer) is called a serial, as opposed to addressable, 

file. 

A record in a file may be input by a read operation or output 
by a write operation, although some files are read-only or write-only 
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depending on the characteristics of the storage device involved. 

OUTPUT Statement. 

Form 093, statement $ OPEN; SHUT OUTPUT filename 5; constant; 
variable ;itemname;ftablename 0;f($ index &;?••• index? $)/? $ 

Examples 

OPEN OUTPUT NAME'FILE $ 

OPEN OUTPUT PERSONNEL 'PILE PERSONNEL' TABLE $ 

SHUT OUTPUT PRINTER $ 

SHUT OUTPUT DRUM03 RAG4($A...A+99$) $ 

Form 09k. statement $ OUTPUT filename constant; variable; 
itemname;ftablename i;f($ index jhf»«« index? $)?? $ 

Examples 

OUTPUT NAME'FILE DE'BUG($ALPHA*K$) $ 

OUTPUT SENSE 'LITE '5 1 $ 

OUTPUT PRINTER 29H(Y0U GOOFED AGAIN, DIDN'T YOU.) $ 

OUTPUT PERSONNEL' FILE PERSONNEL »TABLE($K$) $ 

A file may be -written by the execution of a sequence of OUTPUT 
statements. The first statement executed in such a sequence must 
be an OPEN OUTPUT statement, and the last statement executed, a 
SHUT OUTPUT statement. 

The 'data-name' portion of an OUTPUT statement, following the 
file name, specifies the record to be written, which may consist 
of the bits or bytes representing: a single value, denoted by a 
constant or designated by a variable; the values comprising an 
array, indicated by an array item name; the values comprising a 
table, indicated by a table name; the values comprising a table 
entry, indicated by a table name subscripted by a 1-component 
entry index; the values comprising a consecutive set of table 
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entries, indicated by a table name subscripted by a pair of 1- 
dimensional entry indices separated by the continuation separator ... 
whose values specify the boundary indices of the entry set. 

An OPEN OUTPUT statement serves to determine the availability 
of the file indicated by the file name, for example: whether or 
not the appropriate external storage device may be connected. If 
available, the file is activated and prepared for writing (e.g., a 
file identification may be written.) An OPEN OUTPUT statement need 
not specify a record to be written, in which case, file position is 
initialized tc zero. If, however, an output record is specified, 
the write operation is initiated and file position is set to 1. 

An OUTPUT statement initiates a write operation for the 
specified output record and increments the file position by 1. The 
sequence of statement executions may continue, concurrently, with 
the write operation, although the file is 'busy' until the write is 
successfully terminated, when all the specified bits or bytes are 
written without the occurrence of any uncorrectable error in the 
data transmission. In some files, partition symbols and thus file 
positions are predetermined. Consequently, a write operation started 
from the end-of-flle position would be unsuccessful. In other files, 
notably tape files, the partition symbols are determined by the 
write operation itself so that, in effect, the end-of-flle partition 
symbol follows the last record written. 

A SHUT OUTPUT statement serves to deactivate the file, causing 
its termination by an end-of-file partition symbol and releasing 
the external storage device associated with the file for possible 
other use . A SHUT OUTPUT statement need not specify a record to 
be written, but if an output record is specified, the write oper- 
ation is completed prior to the deactivation of the file. 

INPUT Statement. 
Form 095. statement k OPENjSHUT INPUT filename J; variable; 
itemname^tablename £;?($ index J;f... index? $)?? $ 
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Examples 

OPEN INPUT PERSONNEL 'FILE $ 

OPEN INPUT CLOCK T $ 

SHUT INPUT CLOCK $ 

SHUT INPUT CARD LINE($K$) $ 

Form 096. statement $ INPUT filename variable ;itemname; 
ftablename 0;f($ index ljf««» index? $)57 $ 

Examples 

INPUT ENTRY'KEY'a BOOL $ 

INPUT TAPE07 MATRIX $ 

INPUT PERSONNEL' FILE PERSONNEL ' TABLE( $1. . .J$) $ 

A file may be read by the execution of a sequence of INPUT 
statements. The first statement executed in such a sequence must 
be an OPEN INPUT statement, and the last statement executed, a 
SHUT INPUT statement. 

The data-name portion of an INPUT statement, following the 
file name, designates the values which are to be represented by 
the bits or bytes read from the input record. These may consist of 
a single value designated by a variable or a set of values indi- 
cated in the manner described for OUTPUT statements. 

An OPEN INPUT statement serves to determine the availability 
of the file indicated by the file name (for example: whether the 
appropriate external storage device is connected; whether the file 
identification is correct; etc.) If available, the file is acti- 
vated and prepared for reading. An OPEN INPUT statement need not 
designate a record to be read, in which case, file position is 
initialized to zero. If, however, values are designated to be read 
from an input record, the read operation is initiated and file 
position is set to 1. 
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An INPUT statement initiates a read operation transferring 
data from the input record to represent the designated values, and 
increments the file position by 1. The sequence of statement 
executions may continue, concurrently, with the read operation 
although the file is 'busy' until the read is successfully termi- 
nated. This occurs when a partition symbol is encountered, or 
when all the designated values have been read from the input 
record. A read operation is unsuccessful when started from the 
end-of-file position or when uncorrectable errors occur in the 
data transmission. 

A SHUT INPUT statement serves to deactivate the file, re- 
leasing the external storage device associated with the file for 
possible other use. A SHUT INPUT statement need not designate 
values to be read from an input record, but if any are designated, 
the read operation is completed prior to the deactivation of the 
file. 

The records of a file have no structure, and may be thought 
of as strings of bits or bytes. Structure is supplied only by 
the data-name portion of the INPUT or OUTPUT statement. Thus, 
reading and writing are just information transfers, and no editing 
or rearranging of data (except that required for conversion to 
6-bit Hollerith code) is implied. A write transfers just the bits 
or bytes specified by the data-name. A read transfers just the 
bits or bytes of the record, to the maximum designated by the 
data- name . 

A SHUT statement is defined only for active files, and an 
OPEN statement is defined only for inactive files. Further, some 
file pairs may not be active concurrently, for example: two files 
on the same tape reel. INPUT-OUTPUT statements are defined only 
for active files, and in general, an active file may be both 
written and read, and positioned — if the file characteristics 
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allow. Thus, a read or position with a serial, write-only file 
such as a printer is undefined. The characteristics of some 
files, however, also preclude the initiation of a read or write 
operation when the file is 'busy', thus eliminating the possi- 
bility of stacking input-output operations. 

PHRASES 

Item Description. 

The basic operations of data processing concern the manipu- 
lation of the values of items. In JOVIAL, these values are 
designated by name and, where applicable, by index. Other 
characteristics required for their manipulation, such as storage 
location and form of representation, are either implicitly de- 
rived or need be supplied only once, and not with each desig- 
nation. All the necessary explicit characteristics of an item's 
value may be declared by the programmer with an item description. 

Floating Item Description. 

Form 097- description $ F £;R J;ffcon . .. fcon? 

The abbreviation F declares a Floating type item; the optional 
abbreviation R declares that any value assigned to the item be 
Rounded instead of truncated; the optional pair of floating con- 
stants, separated by the continuation separator . . . declare an 
estimated minimum through maximum absolute value range, for 
possible use in optimizing the machine language program. 

Examples 

F 

F R 

F rj.k...lk.hE10 

F R 1.137E-6...9.3liE24 
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Fixed (Arithmetic) Item Description. 
Form 098. description * A n S;U Jify;+j-:n? fc;R ^ficonjacon 

... icon; aeon; 

The abbreviation A declares a fixed type item; the number 
declares the total number of bits required by the item, including 
any sign bit; the abbreviation S declares a Signed item; the 
abbreviation U declares an Unsigned (positive) item; the optional, 
signed number declares the number of fractional bits in the item - 
zero may be omitted for exact integers; the optional abbreviation R 
declares that any value assigned to the item be Rounded instead of 
truncated; the optional pair of fixed or integer constants separated 
by the continuation separator ... declare an estimated minimum 
through maximum absolute value range, for possible use in optimizing 
the machine language program. 

Examples 
A 27 S 
A 50 S R 1-TE9A0 ... 1.12E15A0 

A 08 S 03 R 

A IT U R 

A 18 U 26 

A 10 U -h 0..-1E 1 * 

Dual Item Description. 

Form 099- description * D n S;U J;^j + i-:n? |;R fc;?dcon ... 

dconjf 

The abbreviation D declares a Dual type item; and the remainder 

of the description pertains to either component of the item; the 

number declares the total number of bits required by each component 

including any sign bit; the abbreviation S declares a Signed component; 

the abbreviation U declares an Unsigned (positive) component; the 

optional, signed number declares the number of fractional bits in 

a component -- zero may be omitted for exact, dual integers; the 
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optional abbreviation R declares that both components of any (dual) 
value assigned to the item be Rounded instead of truncated; and the 
optional pair of dual constants separated by the continuation 
separator . . . declare an estimated minimum through maximum absolute 
value range for possible use in optimizing the machine language 
program . 



Examples 






D 16 S 




R 


D 16 S 


05 




D 2k S 


18 


R 


D 20 U 






D 01* U 


-2 




D i+5 U 


50 


R 



D( 13 .98A18, 27 .A18) . . .D( 27 • 5A18, 31 .98AI8) 
D(8,8)...D(li8,l»8) 



Literal Item Description. 

Form 100. description $ H;Tn 

The abbreviation H declares a Hollerith coded literal item; 
the abbreviation T declares a Transmission-coded literal item; the 
number declares the number of bytes in the item. 

Examples 
H 1 
T 6 
T 1*99 



Status Item Description. 

Form 101. description $ S fljn ( status) 

The abbreviation S declares a Status type item; the optional 
number declares the total number of bits to be allocated the item, 
otherwise derived from the number of the item's status values; the 
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sequence of statuses denote the values of the item, which are 
represented by the sequential numeric values 0, 1, 2, 3> and so 
forth. If a number of bits k is declared, the number of statuses 
should not exceed 2 . 

Examples 

S V(FULL) v(empty) v(scme) 

S k V(N) V(NNE) V(NE) V(ENE) V(e) V(ESE) V(SE) V(SSE) V(S) V(SSW) 
V(SW) V(WSW) V(W) V(WNW) V(NW) V(NNW) 

Boolean Item Description. 

Form 102. description fc B 

The abbreviation B declares a Boolean type item. 

Example 
B 



Parameter Set. 

Form 103. parameter $ constant; status U BEGIN £ parameter^ END? 

A parameter set denotes a value, a list of values, or an array 
of values which serve to indicate the initial values of a simple item, 
a table item, a string item, or an array item. The dimension of the 
parameter set should agree with the dimension of the item being 
initialized. The valueB denoted by the elements of a parameter set 
should, of course, be assignable to that item, and although integer, 
floating, and fixed constants may be intermixed, the elements of a 
parameter set should otherwise all be of the same type. 

Unless declared by a parameter set, the intial value(s) of an 
item is (are) not preassigned and is (are) therefore undefined. 

Examples 

98 

2.9378E3AU 
V( EXACT) 
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DECLARATIONS 

Declarations serve to define certain properties of the identifiers 
occurring within a procedure, a program, or a program system. These 
constitute a 3-level hierarchy, with procedures belonging to programs 
and programs comprising program systems. Identifiers may be defined 
at any of these levels: by a CCMPOOL of system declarations at the 
program system level; and by programmer supplied declarations at the 
program and procedure level. All identifiers must be defined by 
declaration, except statement names which are defined by context, and 
simple item names which may be defined by mode. 

Unless defined by CCMPOOL declarations, programmer-supplied 
definitions of item names, table names, and file names must all appear 
in the program listing before these names may be definitively used. 

By scope of definition, identifiers fall into two distinct and 
non-overlapping categories: (a) statement and switch names; and (b) 
item, table, procedure, and file names. Within these two categories, 
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an identifier's scope includes just the procedure, program, or 
program system for which it was defined and excludes component 
procedures or programs which define identifiers with the same 
spelling. Consequently, a particular identifier, defined within 
a program or procedure, may he used for other purposes outside 
that program or procedure — or even outside its ahove category. 

ITEM Declaration. 
Form 10fc. declaration $ ITEM itemname description $ 

An ITEM declaration, beginning with the declarator ITEM and 
ending with the termination separator $, declares a simple item, 
with the item name taking on the type indicated by the item 
description. 

Examples 

ITEM DELTA F 1.283E-7- • .7«9El6 $ 

ITEM IDEX8 A 16 U R $ 

ITEM AK'IS A T^ S 15 R $ 

ITEM TRKXY D l6 S 5 $ 

ITEM LINE0 H 119 $ 

ITEM HEAD S V(N) V(HB) Yd) V(SB) V(S) V(SW) V(w) V(NW) $ 

ITEM INDIC B $ 

Parameter ITEM Declaration. 

Form 105. declaration k ITEM itemname f description P parameter?; 

constant $ 

A parameter ITEM declaration serves to declare a simple item 
with a specific initial value. This may be done by following the 
item description with the abbreviation P (for Parameter) and then 
a single parameter denoting the desired value. For all parameter 
items except those of status or Boolean type, however, the item 
description is somewhat redundant, enough so that both it and the 
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abbreviation P may be omitted. In such cases, the parameter deter- 
mines the item type, along with other necessary information. Note 
that an octal constant, a 1, or a all declare integer valued, 
fixed-point items, rather than literal or Boolean items. 

Examples 

ITEM AVERAGE -I.965 $ 

ITEM MASQUE A 36 U P 0( 000077777600 ) $ 

ITEM SITE '3 D(+l4.85A5,-77-0A5) $ 

MODE Declaration 

Form 106. declaration fc MODE description 6;fp parameter? $ 

A MODE declaration serves to declare a normal mode of definition 
for simple (unsubscripted) item names which are not otherwise defined. 
An item mode pertains to all such undefined item names whose first 
listed occurrence follows the MODE declaration. Item names so 
defined take on the type indicated by the item description and may 
initially designate the value denoted by the single optional para- 
meter. The effect of a MODE declaration persists until superseded 
by the subsequent listing of another MODE declaration. 

Examples 

MODE F $ 

MODE A 16 S R $ 

MODE A 16 S 5 P +39875 -E-3A5 $ 

MODE T 6 $ 

MODE B $ 

OVERLAY Declaration. 

Form 107. declaration $ OVERLAY itemnamejtablename 8;( ,;= 
itemnamejtablename) $ 

An OVERLAY declaration arranges items, tables, and arrays in 
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machine storage by allocating to them blocks of consecutive units 
of storage space. The storage space allocated tables and arrays 
consists of undefined units called 'registers'. The storage space 
allocated items depends on a packing mode: No packing — storage 
allocated in register units; Medium packing — storage allocated 
in sub-register units; Dense packing — storage allocated in bit 
position units. 

Starting with a specific but undefined origin, the items, 
tables, and arrays indicated by the set of names separated by 
commas and delimited by the equals sign =, are allocated a linear, 
consecutive block of storage space and, except for packed items 
which may be rearranged for storage efficiency, the order of allo- 
cation is the same as the order of names in the declaration. If 
more than one such set of names is included in an OVERLAY decla- 
ration, each set will be allocated storage beginning at the same 
origin, thus 'overlaying' the others. Consequently, if a name is 
separated from its predecessor by a comma, storage allocation will 
(in general) commence immediately following the storage unit Just 
allocated. If, however, the name is separated from its predecessor 
by an equals sign -, storage allocation will commence at the common 

origin . 

A name may appear only once in an OVERLAY declaration, but may 
appear in more than one OVERLAY declaration if logical inconsistencies 
are avoided. To overlay items in a table, the OVERLAY declaration 
must appear within the TABLE declaration. 

TABLE Declaration. 

Form 108. declaration k TABLE ^tablename V;R n |;P;S pTH;U',T) 
BEGIN ( ITEM itemname description $ ^parameter jj^f OVERLAY itemname 
hi *;= itemname J $?J END 
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A TABLE declaration serves to declare an optionally named 
table; the abbreviation V declares a Variable length table; the 
abbreviation R declares a Rigid length table; the number declares 
the number of entries (indexed from thru n-l) comprising the table 
— a maximum in the case of a variable length table; the optional 
abbreviations P or S declare either a Parallel or Serial entry- 
structure; the optional abbreviations N, M, or D declare either 
No packing, Medium packing, or Dense packing of the items within 
an entry. 

The composition of an entry is described within the BEGIN and 
END brackets. The set of ITEM declarations declare the items com- 
prising an entry. In designating the value of a table item, a 
1-component index subscripting the item name indicates the entry. 
A parameter list of length k (less than or equal to the number of 
entries) following an ITEM declaration denotes a list of k values 
which the first k successive entries of the item are to initially 
designate. If an OVERLAY declaration is used in describing entry 
structure, the item names involved must have been previously declared 
as part of the entry. 

Examples 

TABLE R 100 $ 

BEGIN 

ITEM ALPHA A 16 U R $ 

ITEM BETA T 6 $ 

ITEM INDIC B $ 

END 

TABLE TAV0 V 1024 S D $ 

BEGIN 

ITEM TTAG H 18 $ 

ITEM TNMI B $ 

ITEM TNOS B $ 

ITEM TTVD A 12 U $ BEGIN 9 l 1 * 33 18 62 78 113 77 END 

ITEM TPRO F 6.8903E-6...2.147E9 $ 

ITEM TSTA S V(NULL) V(UNDER) v(lEVEL) V(OVER) $ 

OVERLAY TPRO = TTAG, TTVD $ 

END 
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TABLE FACTORIALS R 10 N $ 

BEGIN J . UXJ 

ITEM FACTORIAL A kQ U $ BEGIN 1 1 2 6 2M20 720 50^ 

U0320 362880 END 

END 

Defined Entry Structure TABLE Declaration. 

Form 109. declaration $ TABLE £;tablename V;R r^ J;P;S r^ 
BEGIN ( flTEM itemname description n~ n^ £;N;M;D $?;? STRING itemname 
description n 3 n^ J;N;M;D n ? n g $? J; parameter^ END 

A TABLE declaration of this type serves to declare an optionally 
named table with a completely specified entry structure. In the 
TABLE declaration proper: the abbreviation V declares a Variable 
length table; the abbreviation R declares a Rigid length table; the 
number iu declares the (maximum) number of entries; the optional 
abbreviations P or S declare either a Parallel or Serial entry 
structure; and r^ declares the number of storage registers consti- 
tuting an entry. 

The composition and structure of an entry is described within 
the brackets BEGIN and END. The set of ITEM and STRING declarations 
declare the items comprising an entry, and contain information com- 
pletely specifying and describing the item packing within an entry. 
An ITEM declaration declares a table item, which has just one 
occurrence per entry of the table. A STRING declaration declares 
a string item, which may have a variable number of occurrences 
(beads) per entry of the table. In designating the value of a 
particular bead, a 2-dimensional index must subscript the string 
item name indicating, first, the bead, and second, the entry. 

After either the ITEM or STRING declarator, the item name and 
item description names and describes the item; and following the 
item description, a, declares the index of the register in the entry 
and n u declares the index of the bit position in the register to be 
the origin, bit 0, of (the first occurrence of) the item. The 
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optional abbreviations N, M, or D declare the type of item packing 
arising from the bit allocation: No packing; Medium packing; or 
Dense packing. In the STRING declaration only: the number n q gives 
the increment to the index of the next register in the entry contain- 
ing a bead of the string by declaring the frequency of occurrence 
of the string item in the entry's registers (i.e., every nj* register); 
and the number ng gives a packing factor by declaring the number of 
beads per register. The termination separator $ ends both ITEM and 
STRING declarations. 

As before, a parameter list or 1-dimensional parameter set 
following an ITEM declaration denotes initial values to be designated 
by the first successive entries of the table item. A 2-dimensional 
parameter set following a STRING declaration denotes initial values 
to be designated by the various beads of the string item ~ the 
parameter lists comprising the set denoting values for the first 
successive entries of the string, and the individual constants within 
a list denoting values for the beads within an entry. 

Examples 

TABLE KEY 'REFERENCES V 10000 S 1 $ 

BEGIN 

ITEM KEY T 6 00 M $ 

ITEM PREFERENCES A 12 U 36 M $ 

STRING REFERENCE A2UU100M12$ 

END 

TABLE TRC R h 2 $ 

BEGIN 

ITEM TRCA A 12 U R 01* $ 

ITEM TRCB H 6 1 00 $ 

ITEM TRCC A k S 00 & BEGIN -k 3 3 -7 END 

ITEM TRCD S 20 V(COND'A) V(COND'B) V(COND'C) V(COND'D) 15 $ 

Like TABLE Declaration 

Form 110. declaration $ TABLE tablename:@;# fl;fv;R n? 8;P;S 
J;N;M;D L $ 
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A like TABLE declaration serves to declare a table with an 
entry structure like that of a previously declared and named table. 
The like table's name is formed by suffixing a numeral or letter 
to the name of the pattern table, and its items are automatically 
named with the item names, similarly suffixed, of the pattern table. 
The composition and structure of a like table's entry is taken as 
being generated by the declarations describing the pattern table's 
entry structure, with the difference, of course, of the numeral or 
letter attached to each item name. As with other forms of TABLE 
declaration, the abbreviation V declares a Variable length table; 
the abbreviation R declares a Rigid length table; and the number 
declares the number of entries. If this information is omitted, 
the pattern table's specifications for these characteristics are 
used. Again, the optional abbreviations P or S declare either 
Parallel or Serial entry structure and the optional abbreviations 
N, M, or D declare either No packing, Medium packing, or Dense 
packing of the items in the like table's entry. The abbreviation L 
immediately preceding the termination separator $ declares the table 
a Like table. 

Examples 

TABLE G'TABLE0 L $ 

TABLE TAV0Q R 1 P D L $ 

TABLE TAV0Y S N L $ 

ARRAY Declaration. 

Form 111. declaration k ARRAY itemname £ n^ description $ 
fi; parameter 

An ARRAY declaration serves to declare an item name as desig- 
nating a multi-dimensional array of values, giving the type and the 
dimensions of the array item. Each number in the sequence of numbers 
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following the item name declares the number of elements in the 
corresponding dimension of the array. The first number in the 
sequence declares the number of rows, the second number declares 
the number of columns, the third number declares the number of 
planes, and so on. (in designating a particular value within an 
array, an index with as many components as the number of the 
array's dimensions must subscript the array item name.) The item 
description declares the type and other pertinent characteristics 
of the array item, and is followed by the termination separator $. 
An array or sub-array of values for the array to initially desig- 
nate may be denoted by a parameter set following the declaration. 
The parameter lists between the innermost BEGIN and END bracket 
pairs denote rows of values, and are thus indexed by row. The 
individual elements in a parameter list are indexed by column, 
and the parameter matrices are indexed by plane, and so on. 

Examples 

ARRAY TIC'TAC'TOE 3 3 S V(EMPTY) V( CROSS) V(NOUGHT) $ 

ARRAY NODE 20 18 5^ P 8.0E-6. . -3.0E10 $ 

ARRAY GRID'A 7 5 B $ 
BEGIN 

BEGIN 10 END 

BEGIN 10 10 END 

BEGIN 10 1 END 

BEGIN 11111 END 

BEGIN 10 1 END 

BEGIN 10 1 END 

BEGIN 10 1 END 
END 



SWITCH Declaration. 

A SWITCH declaration lists the sequential formulas which specify 
the set of statement names associated with the switch name. 
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Form 112. declaration $ SWITCH switchname = ( J^seqform 

£;(, , J^seqform^ ) $ 

In an index switch, the sequential formulas are indexed 
according to their position in the list. Each of the k positions 
of the list, indexed from left to right from to k-1, is separated 
by a comma from the adjacent position(s). A position without a 
sequential formula implies a 'no- value*, equivalent to the name of 
the statement following the GOTO statement invoking the switch. In 
designating a particular value of an index switch, a 1-component 
index must subscript the switch name. A switch value is therefore 
defined only if the index specified is within the index range 
(0 thru k-l) of the list. 

Example 

SWITCH TOGGLE = (EL97, , ST0l($ALPHA$), , , LOOP, EMIT($I,J$)) $ 

Form 113. declaration $ SWITCH switchname ( itemname; filename ) 
= ( parameter = seqform £;£ , parameter = seqform^ ) $ 

In an item switch, the sequential formulas are each associated 
vith a single parameter. The value of the switch depends on the 
value of the indicated item, or on the current state of the indicated 
file. The value of the sequential formula associated with the para- 
meter denoting the value of the item or the state of the file is, 
therefore, the value specified by the switch. However, if none of 
the parameters in the SWITCH declaration denote the value of the item 
or the state of the file, the switch's value is 'no- value', equivalent 
to the name of the statement following the GOTO statement invoking the 
switch. 

Example 

SWITCH WHICH (BETA) = (3H(ARY) = ST34, 3H(0L9) - FINIS($A/2$), 

3H( ) = S01, 3H(ABC) - S02, 3H(' M ) - EXIT, 3H(-») = S01, 

3H .$.) = ESS0($A,B,C$), 0(777777) = ST01, 3H(XXX) - PCR'SORT) $ 
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DEFINE Declaration 

Form 11U. declaration $ DEFINE label ":(sign):" $ Where 
(sign) does not include the symbol ' • 

A DEFINE declaration serves to define a label as being equiva- 
lent to the 'quoted* sign-string. This equivalence is established 
by a process of substituting the sign-string for the label wherever 
it may subsequently be listed, except within another sign- string 
(for example: in a comment; in the machine language portion of a 
DIRECT statement; or in a literal constant) or as the label of a 
DEFINE declaration. This last exception allows a label to be re- 
defined as being equivalent to another sign-string at some later 
point in the program listing. 

Examples 

DEFINE ROW "127" $ 

DEFINE AS " " $ 

DEFINE IF'EITHER AS "IFEITH" $ 

FILE Declaration 

Form 115. declaration $ FILE filename H;B n V;R iu ( status) 
label $ 

A FILE declaration serves to declare either a Hollerith file 
indicated by the abbreviation H, or a Binary file indicated by the 
abbreviation B. The number a, declares the (estimated maximum) 
number of records in the file; the abbreviation V declares a Variable 
record size; the abbreviation R declares a Rigid record size; and n_ 
declares the (estimated maximum) number of bits or bytes in a record. 
The set of statuses correspond serially to the states of the file, 
which are undefined since they depend on the characteristics of the 
external storage device containing the file, and on the complexity 
built into the machine language input-output routines by the JOVIAL 
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compiler. The label preceding the termination separator $ is un- 
defined and serves to indicate a particular external storage device 
in computer dependent terms. A workable definition of this hardware- 
name label must include a description of the characteristics of the 
external storage device it references, and an ordered list of the 
states pertaining to any file using the device. 

Examples 

FILE NAME' FILE B 100 V 9999 V(UNREADY) V(READY) V(BUSY) 

V(END'OF'FILE) TAPE03 $ 

FILE PRINTER H 43 R 120 V(UNREADY) V(READY) V(BUSY) SYSPRT $ 

Procedure Declaration. 

A procedure declaration defines a procedure as a statement, 
headed by a declaration list, whose execution may only be invoked 
through the use of a procedure statement or a function call. This 
statement, constituting the body of the procedure, may operate on 
certain values designated by a fixed set of formal input parameters, 
may utilize certain labels denoted by a fixed set of formal parameters, 
and may produce a fixed set of resulting values designated by formal 
output parameters. 

Form 116. declaration $ PROC procedurename ^;f( £;f label 
^ , label^? |;?= label £; . £;£ , label £;•£?)?$£;(, declaration^ 
statement 

In general, a procedure declaration consists of the declarator 
PROC, a procedure name, a set (possibly empty) of formal parameter 
labels, and necessary delimiters followed by a declaration list which 
heads the procedure-body statement. The assignment separator =, where 
it appears, separates the formal input parameters on the left from the 
formal output parameters on the right, either or both of which may be 
lacking in a particular case. 
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To each formal parameter in the procedure declaration must 
correspond a calling parameter in the invoking procedure statement 
or function call. This list of calling parameters may contain: 
formulas, which specify values to be initially designated by formal 
input parameters; variables, which are assigned the final values 
designated by formal output parameters; and certain labels, which 
(in effect only) replace their corresponding formal input or output 
parameters at each occurrence throughout the heading declarations 
and the body statements. Formal parameters thus either designate 
values or denote labels. 

Each formal parameter which is to designate a value must be 
declared by one of the declarations heading the procedure body as 
the name of a simple item of appropriate type. It is this item 
which is assigned the value of the calling parameter input formula 
before the execution of the procedure, or which designates the 
value assigned to the calling parameter output variable after the 
execution of the procedure. 

All formal parameters not declared as items must denote calling 
parameter labels — table names, array item names, or statement names. 
A formal output parameter meant to denote a statement name must be 
distinguished by a dummy suffix consisting of a period, whereas a 
formal input parameter meant to denote a (closed) statement name is 
not so distinguished. 

Formal parameters which denote calling parameter labels may be 
used within the procedure declaration wherever the substitution of 
their corresponding labels would be defined. However, a formal 
parameter meant to denote a table name or an array item name must 
also be declared as the name of a table or array within the pro- 
cedure, to provide the procedure with a fixed definition of the 
structure of the tables or arrays that the formal parameter is to 
denote . 
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Any identifier (except a subscript) already defined for the 
program at a procedure's listing is similarly defined for that 
procedure, unless an identical identifier, with an overlapping 
scope, is declared within the procedure or is one of the procedure's 
formal parameters. All identifiers declared within the procedure, 
however, are defined only for the procedure, and have no relation- 
ship to identical identifiers outside the procedure. No limitations 
exist on procedure statements or function calls invoking procedures 
within procedures. However, procedure declarations themselves may 
not be nested; that is, a procedure declaration may not appear 
within another procedure declaration. 

For a procedure to specify the value of a function, the 
procedure declaration must have no formal output parameters. The 
procedure name itself, declared in the procedure heading as an item, 
must be considered as the sole output parameter, to which the 
function's value must be assigned during the execution of the 

procedure . 

The execution of a procedure is terminated after the execution 
of the last procedure-body statement listed, by a RETURN statement, 
or by a GOTO statement containing a formal output parameter denoting 
a statement name. The execution of a GOTO statement containing a 
formal input parameter denoting a (closed) statement name normally 
only interrupts the execution of the procedure. 

Examples 

PROG BETA' SUM $ ' f A NO-PARAMETER PROCEDURE TO SET THE ARITHMETIC 

SUM OF THE FIRST N VALUES OF BETA AS THE VALUE OF 

THE N+1ST BETA. ' ' 

BEGIN 

BETA($NENT(BETA)$) = $ 

FOR N = ALL(BETA) $ 

BETA($NENT(BETA)$) = BETA($NENT(BETA)$) 
+ BETA($N$) $ NENT(BETA) = NENT(BETA)+1 $ 

END 



9 June 1961 73 IM-555/OO2/OI 



PROC ARCSIN (SINE) $ ' 'A FIXED-POINT ARCSIN POLYNOMIAL 

APPROXIMATION FUNCTION. MAXIMUM ERROR ABOUT 
• 5E-6. SEE HASTINGS, PAGE 163." 

ITEM ARCSIN A 36 S 30 R $ 

ITEM SINE A 36 S 35 R $ 

ITEM ALPHA 8 A 36 S 3^ $ BEGIN +1.57079 630 50A34 

-0.2145988016A34 

+0.088979897^3^ 
-0. 05017^30^^34 
+0.0308918810A3U 
-0.0170881265A3U 
+0.0066700901A3U 
-0 . 0012624911A34 END 

PROC RANDOM (=WHERE) $ • 'MULTIPLICATIVE PSEUDO-RANDOM NUMBER 

GENERATOR." 
ITEM WHERE A k& U P 539l82l89062726l $ 
ITEM TEMP A 96 U $ 

BEGIN 

TEMP = WHERE ** 2 $ 

WHERE = BIT($24,46$)(TEMP) $ 

END 

PROC REFERENCE 'SEARCH (WORD = NUMBER, FAILURE.) $ "THIS PROCEDURE 
SEARCHES THE KEY 'REFERENCE TABLE (GIVEN AS AN EXAMPLE 
OF FORM 109) FOR AN ENTRY WHOSE KEY IS IDENTICAL TO WORD, 
SETTING THE ENTRY-INDEX IN NUMBER. IF NO KEY MATCHES 
WORD, THE FAILURE EXIT IS TAKEN. AFTER A SUCCESSFUL 
RETURN, THE SET REFERENCE( $0 . . .N'REFERENCES($NUMBER$)-1, 
NUMBER$) IS ASSOCIATED WITH THE KEY WORD. ' ' 
ITEM WORD T 6 $ 
ITEM NUMBER A Ik U $ 
BEGIN 

FOR 1=0, 1.5A1+N'REFERENCES($I$)/2.A1, NENT(KEY)-1 $ 
BEGIN 

IF WORD EQ KEY($I$) $ 
BEGIN 

NUMBER = I $ RETURN $ 
END 
END 
GOTO FAILURE $ 
END 
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PROGRAM. 

Form 117. program $ START ( declaration; statement ) TERM 
6;statementname $ 

A JOVIAL program is a string of declarations and statements 
enclosed in the brackets START and TERM. If a statement name is 
provided following the TERM, the first statement in the program's 
execution sequence is the one bearing that name. Otherwise, it is 
the first (non-procedure-body) statement listed. The typographic 
end of the program is indicated by the termination separator $. 

START 
• 'L 'AUTOMATON. A PROGRAM WHICH READS A SEQUENCE OF INPUT SYMBOLS, 
DECIDES WHETHER OR NOT THEY FORM A SENTENCE IN LANGUAGE L (DESCRIBED 
ON PAGE 9 ), AND WRITES THE SEQUENCE AND THE DECISION AS ITS OUTPUT 
MESSAGE. L' AUTOMATON WILL WRITE A REQUEST FOR INPUT AND STOP. 
WHEN INPUT IS READY, COMPUTATION MAY RESUME. ' ' 



DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 

FILE 



FILE 



ITEM 
ITEM 

ITEM 



TO 

TRUE 

RIGID 

STATUS 

INTEGER 

IFEITHER 

UNSIGNED 

HOLLERITH 

PROCEDURE 

FIXED' POINT 

N' COLUMNS 



it 1 1 

Hill 

"R" 

llgll 



$ 

$ 
$ 



t I 

"IFEITH" 

"U" $ 

"H" $ 

"PROC" $ 

"A" 
1 1 



» « $ • 'NUMBER OF SYMBOLS PER RECORD 
(LQ 120) TO BE SUPPLIED BY PROGRAM'S USER." 
SYMBOLS HOLLERITH 500 ' 'RECORDS MAXIMUM' ' RIGID 

"RECORD SIZE OF" N 'COLUMNS V( INACTIVE) 
V(AVAILABLE) V(BUSY) V(ERROR) V(FINISHED) 
CARD 'READER $ 
MESSAGE HOLLERITH 500 ' 'RECORDS MAXIMUM' » RIGID 
"RECORD SIZE OF" 120 V( INACTIVE) 
V( TRANSMITTED) V(BUSY) V(ERROR) LINE'PRINTER $ 
SYMBOL 'LIST HOLLERITH N' COLUMNS $ ' 

RESULT STATUS V(SENTENCE) V(PHRASE) V(GARBLE) 
V( EXCESS) $ 
STATE FIXED 'POINT 15 "BIT" UNSIGNED INTEGER 
"RANGE" 0...2U575 $ 
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PROCEDURE L •MACHINE (IN 1 SYMBOL = OUT' SYMBOL) $ "THIS PROCEDURE 

IS A SEQUENTIAL MACHINE WHICH, GIVEN A SYMBOL 
FROM AN INPUT SEQUENCE, WILL RESPOND WITH AN 
OUTPUT SYMBOL INDICATING WHETHER THE SEQUENCE 
OF SYMBOLS INPUT THUS FAR IS A COMPLETE SENTENCE 
IN LANGUAGE L, A PHRASE OR INCOMPLETE SENTENCE, 
A NON-SENTENCE OR GARBLE, OR WHETHER THE LENGTH 
OF THE SEQUENCE IS IN EXCESS OF THE MACHINE'S 
ABILITY TO DECIDE (ROUGHLY AT LEAST 16000 
SYMBOLS. ) INITIAL AND TERMINAL BLANKS ARE 
IGNORED. ' ' 
ITEM IN' SYMBOL HOLLERITH 1 "CHARACTER" $ 
ITEM OUT' SYMBOL STATUS V( SENTENCE) V( PHRASE) V( GARBLE) 

V( EXCESS) $ 



1 1 



ITEM ACTION FIXED 'POINT 6 
SWITCH MECHANISM » ( 

"0(00000) • 
"0(00001)... 0(17776)' 

1 '0(17777) 



"0(20000) 
•0(20001)... 0(37777) 



"0(40000) 
"0(40001)... 0(57776) 

"0(57777) 

BEGIN 

IFEITHER 



1H( ) 

DECIDE, 

GARBLE, 

GARBLE, 

CHANGE2, 

GARBLE, 

DECIDE, 

GARBLE, 

EXIT, 



"BIT" UNSIGNED INTEGER $ 
1H(() 1H($) 1H()) 
CHANGE1, CHANGE2, GARBLE, 
CHANGEl, CHANGE2, CHANGE3, 
EXCESS, CHANGES, 
GARBLE, DECIDE, 
GARBLE, DECIDE, CHANGE4, 
GARBLE, GARBLE, GARBLE, 
GARBLE, GARBLE, CHANGE5, 
EXIT, EXIT, EXIT, 



OTHER" 
GARBLE, 
GARBLE, 
CHAH0E3, GARBLE, 
GARBLE, GARBLE, 
GARBLE, 
GARBLE, 
GARBLE, 
GARBLE ) 



STATE EQ 0(00000) $ ACTION = 04 $ 
ORIF 0(00001) LQ STATE LQ 0(17776) $ ACTION = 09 $ 
ORIF STATE EQ 0(17777 ) $ ACTION = 14 $ 

ORIF STATE EQ 0( 20000) $ ACTION = 19 $ 

ORIF 0(20001) LQ STATE LQ 0(37777) $ ACTION = 24 $ 
ORIF STATE EQ 0(40000) $ ACTION = 29 $ 

ORIF 0(40001) LQ STATE LQ 0(57776) $ ACTION = 34 $ 
ORIF STATE EQ 0(57777) $ ACTION = 39 $ 

ORIF TRUE $ 

STOP $ "PROGRAM OR COMPUTER ERROR. STATE CAN'T 

EXCEED 0(57777)." 
END 

IFEITHER IN 'SYMBOL EQ 1H( ) $ ACTION = ACTION - 4 
ORIF IN' SYMBOL EQ 1H(() $ ACTION = ACTION - 3 
ORIF IN 'SYMBOL EQ 1H($) $ ACTION = ACTION - 2 
ORIF IN 'SYMBOL EQ 1H( ) ) $ ACTION = ACTION - 1 
END 






9 June 1961 



76 



TM- 5 5 5/002/01 



GOTO MECHANISM($ACTION$) $ 
GARBLE. OUT 'SYMBOL = V( GARBLE) $ 

GOTO SI $ 
EXCESS. OUT 'SYMBOL = V( EXCESS) $ 
SI. STATE = 0(57777) $ 
EXIT. RETURN $ 
CHANGE1. STATE = STATE + 0( 00001) $ 

GOTO DECIDE $ 
CHANGE2. STATE = STATE + 0(20000) $ 

GOTO DECIDE $ 
CHANGE3. STATE = STATE + 0(37777) $ 

GOTO DECIDE $ 
CHANGE^. STATE = STATE + 0(17777) $ 

GOTO DECIDE $ 
CHANGE5. STATE = STATE - 0( 00001) $ 
DECIDE. IFEITKER BTT($2,13$)(STATE) EQ $ 
OUT 'SYMBOL = V( SENTENCE) $ 
ORIF TRUE $ 

OUT 'SYMBOL = V(PHRASE) $ 
END 
END 
L' AUTOMATON. BEGIN 

OPEN OUTPUT MESSAGE U6h(L' AUTOMATON READY FOR 

INPUT SEQUENCE. PROCEED. ) $ 

STATE = 0(00000) $ 
STOP $ 

OPEN INPUT SYMBOLS $ 
READ' SYMBOLS. INPUT SYMBOLS TO SYMBOL' LIST $ 

READY' TEST. IF SYMBOLS EQ V(AVAILABLE) AND MESSAGE EQ 
V( TRANSMITTED) $ 

BEGIN 

OUTPUT MESSAGE' SYMBOL 'LIST $ 

FOR I = 0, 1, N'COLUMNS.- 1 $ 

L'MACHINE(BYTE($I$)( SYMBOL 'LIST), RESULT) $ 
GOTO READ' SYMBOLS $ 
END 
IF SYMBOLS EQ V(BUSY) OR MESSAGE EQ V(BUSY) $ 
GOTO READY 'TEST $ 
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IF SYMBOLS EQ V( FINISHED) $ 
BEGIN 
SHUT INPUT SYMBOLS $ 

IFEITHER RESULT EQ V( SENTENCE) $ 

SHUT OUTPUT MESSAGE 47H(THE ABOVE SEQUENCE 
IS A SENTENCE IN LANGUAGE L. ) $ 

ORIF RESULT EQ V( PHRASE) 4 

SHUT OUTPUT MESSAGE 45H(THE ABOVE SEQUENCE 
IS A PHRASE IN LANGUAGE L. ) $ 

ORIF RESULT EQ V( GARBLE) * 

SHUT OUTPUT MESSAGE 1*5H(THE ABOVE SEQUENCE 
IS A GARBLE IN LANGUAGE L. ) $ 

ORIF RESULT EQ V( EXCESS) $ 

SHUT OUTPUT MESSAGE 73H(THE LENGTH OF THE 
ABOVE SEQUENCE EXCEEDS L' AUTOMATON'S ABILITY TO DECIDE.) $ 

END 
GOTO L' AUTOMATON $ 
END 
STOP L 'AUTOMATON $ 
END 
TERM L'AUTOMATON $ 
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